home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / opint102.5rc / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-04  |  4KB  |  145 lines
  1. Program Test;
  2.  
  3.   {***************************************************************************}
  4.   {*                                                                         *}
  5.   {* O p u s   I n t e r f a c e    V e r   1.02     Demo Program.           *}
  6.   {*                                                                         *}
  7.   {* Opus V 1.0x Interface for Turbo Pascal Ver 4.0                          *}
  8.   {*                                                                         *}
  9.   {*  These Structures,Procedures and Functions may help you to make OPUS    *}
  10.   {* utilities for to help other SysOps, Please read the Documentation.      *}
  11.   {*                                                                         *}
  12.   {*  Regards                                                                *}
  13.   {*    Per Holm                                                             *}
  14.   {*                                                                         *}
  15.   {*   FIDO: Per Holm - Asgaard BBS 2:230/22.0                               *}
  16.   {*   UUCP: perholm@daimi.DK                                                *}
  17.   {*                                                                         *}
  18.   {***************************************************************************}
  19.  
  20.  
  21. Uses
  22.   OPINT;
  23.  
  24. Var
  25.   i:Integer;
  26.  
  27. PROCEDURE Error;
  28.  
  29.   VAR
  30.     Err: Integer;
  31.  
  32.   BEGIN
  33.     Err:=OpIntERROR;
  34.     IF Err>0 THEN
  35.       BEGIN
  36.         Writeln('You Got Yourself an Error ',Err,' During OpInt Access');
  37.         Readln;
  38.       END;
  39.   END;
  40.  
  41. PROCEDURE DemoPrmFile;
  42.  
  43.   VAR
  44.     Prm: _Prm;
  45.  
  46.   BEGIN
  47.     ReadPrm('BBS.PRM',Prm);
  48.     Error;
  49.     WritePrm('bbs2.prm',Prm);
  50.     Error;
  51.     With Prm DO
  52.       BEGIN
  53.         Writeln('Compiler Version ..............: ',Version);
  54.         write('Keyboard Mode .................: ');
  55.         IF TestMode=1 THEN
  56.           Writeln('Yes')
  57.         ELSE
  58.           writeln('No');
  59.         writeln('Exit Val ......................: ',ExitVal);
  60.         writeln('Privilige to see Ctrl A lines..: ',CtlaPriv);
  61.         write('Multitasker ...................: ');
  62.         IF Multitasker=1 THEN
  63.           Writeln('Yes')
  64.         ELSE
  65.           writeln('No');
  66.         write('Snooping ......................: ');
  67.         IF Snooping=1 THEN
  68.           Writeln('Yes')
  69.         ELSE
  70.           writeln('No');
  71.         WriteLn('Max Baud rate .................: ',MaxBaud);
  72.         writeln;
  73.         writeln('SysOp''s Name .................: ',SysOp);
  74.         writeln('Board Name ....................: ',SystemName);
  75.     END;
  76.   END;
  77.  
  78. PROCEDURE DemoSystemFiles;
  79.  
  80.   VAR
  81.     Sys:_Sys;
  82.  
  83.   BEGIN
  84.     ReadSys('SYSTEM.BBS',Sys);
  85.     Error;
  86.     WriteSys('SYSTEMxx.BBS',Sys);
  87.     Error;
  88.     with Sys DO
  89.       BEGIN
  90.         writeln('lscaller : ',ls_caller);
  91.         writeln('Priv : ',priv);
  92.         writeln('msgpath : ',msgpath);
  93.         writeln('bbspath : ',bbspath);
  94.         writeln('hlppath : ',hlppath);
  95.         writeln('uppath : ',uplpath);
  96.         writeln('filepath : ',filepath);
  97.         writeln('Attrib : ',Attrib);
  98.         writeln('ms_caller : ',ms_caller);
  99.         writeln('quote : ',quote);
  100.       END;
  101.   END;
  102.  
  103. PROCEDURE ChkSched;
  104.  
  105.   VAR
  106.     Scheds: _Scheds;
  107.     Sched: _Sched;
  108.  
  109.   BEGIN
  110.     ReadScheds('Sched.Bbs',Scheds);
  111.     Error;
  112.     WriteScheds('Schedx.BBS',Scheds);
  113.     Error;
  114.     Sched:=Scheds[2];
  115.     With Sched DO
  116.       BEGIN
  117.         writeln('Year .......: ',Year);
  118.         writeln('Month ......: ',Month);
  119.         writeln('DaY ........: ',Day);
  120.         writeln('DayOfWeek...: ',DayWk);
  121.         writeln('Hour .......: ',Hour);
  122.         writeln('Min ........: ',Min);
  123.         writeln('Sec ........: ',Sec);
  124.         writeln('Len ........: ',Len);
  125.         writeln('Enable .....: ',Enable);
  126.         writeln('Trigger ....: ',Trigger);
  127.         writeln('Tag ........: ',Tag);
  128.         writeln('LastRan ....: ',Last_Ran);
  129.         writeln('Opus Reserv.: ',b);
  130.         writeln('Ext Reserv..: ',c);
  131.         writeln('Behavior ...: ',Behavior);
  132.         writeln('Event Mask..: ',EventMask);
  133.         writeln('GMT ........: ',GMT);
  134.       END;
  135.   END;
  136.  
  137. BEGIN
  138.   DemoPrmFile;
  139.   Readln;
  140.   DemoSystemFiles;
  141.   Readln;
  142.   ChkSched;
  143.   readln;
  144. END.
  145.